#include "rwmake.ch" 

/*
	Programa......:	COFAT06
	Autor.........:	Geraldo E. Franciscon
	Data..........:	29/12/00
	Descricao.....:	Verifica se o Fornecedor esta cadastrado como Cliente
	Mudanca Versao:	** indice ok ** 17/02/2003 10:17
	Alterado      : DAniel em 16/06/2003 pesquisa codigo ja cadastrado e atualizacao de dados
*/

USER FUNCTION cofat06()
LOCAL aArea := GetArea()
LOCAL aAreaSA1 := SA1->(GetArea())

dbSelectArea( "SA1" )
SA1->(dbSetOrder(3))

IF SA1->(DBSEEK(xFilial("SA1") + M->A2_CGC))
	MsgBox("Este Fornecedor esta cadastrado como Cliente com o Codigo " + SA1->A1_COD + " e Loja " + SA1->A1_LOJA + ".", "Consistencia entre Fornecedor X Cliente")
	
	dbSelectArea("SA2")
	SA2->(dbSetOrder(1))
	SA2->(dbSeek(xFilial("SA2") + SA1->A1_COD + SA1->A1_LOJA))

	IF SA2->A2_COD + SA2->A2_LOJA == SA1->A1_COD + SA1->A1_LOJA 
		M->A2_NOME    := SA1->A1_NOME
		M->A2_NREDUZ  := SA1->A1_NREDUZ
		M->A2_PESSOA  := SA1->A1_TIPO
		M->A2_COD_MUN := SA1->A1_COD_MUN
		M->A2_MUN     := SA1->A1_MUN
		M->A2_EST     := SA1->A1_EST
		M->A2_BAIRRO  := SA1->A1_BAIRRO
		M->A2_CEP     := SA1->A1_CEP
		M->A2_ENDCOB  := SA1->A1_END
		M->A2_END     := SA1->A1_END
		M->A2_TEL     := SA1->A1_TEL
		M->A2_INSCR   := SA1->A1_INSCR
		M->A2_FAX     := SA1->A1_FAX
		M->A2_CONTATO := SA1->A1_CONTATO
		M->A2_INSCRM  := SA1->A1_INSCRM
		M->A2_EMAIL   := SA1->A1_EMAIL
		M->A2_HPAGE   := SA1->A1_HPAGE
    ELSE
		M->A2_COD  := SA1->A1_COD
		M->A2_LOJA := SA1->A1_LOJA 
		M->A2_NOME := SA1->A1_NOME
		M->A2_NREDUZ := SA1->A1_NREDUZ
		M->A2_PESSOA := SA1->A1_TIPO    
		M->A2_COD_MUN := SA1->A1_COD_MUN
		M->A2_MUN    := SA1->A1_MUN
		M->A2_EST    := SA1->A1_EST
		M->A2_BAIRRO := SA1->A1_BAIRRO
		M->A2_CEP    := SA1->A1_CEP
		M->A2_ENDCOB := SA1->A1_END
		M->A2_END    := SA1->A1_END
		M->A2_TEL    := SA1->A1_TEL
		M->A2_INSCR  := SA1->A1_INSCR
		M->A2_FAX    := SA1->A1_FAX
		M->A2_CONTATO := SA1->A1_CONTATO
		M->A2_INSCRM  := SA1->A1_INSCRM
		M->A2_EMAIL   := SA1->A1_EMAIL
		M->A2_HPAGE   := SA1->A1_HPAGE
	 ENDIF  
ENDIF

RestArea(aAreaSA1)
RestArea(aArea)

RETURN(M->A2_CGC)
	